home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
VM.p
< prev
Wrap
Text File
|
1993-11-22
|
810b
|
34 lines
unit VM;
interface
function GetPhysical (var addresses: LogicalToPhysicalTable; var physicalEntryCount: Longint): OSErr;
inline
$241F, {MOVE.L (A7)+,D2}
$2242, {MOVEA.L D2,A1}
$2251, {MOVEA.L (A1),A1}
$205F, {MOVEA.L (A7)+,A0}
$7005, {MOVEQ #$05,D0}
$A15C, {_MemoryDispatch,A0}
$3E80, {MOVE.W D0,(A7)}
$2242, { MOVEA.L D2,A1}
$2288; {MOVE.L A0,(A1)}
function LockMemory (address: univ Ptr; count: Longint): OSErr;
inline
$225F, {MOVEA.L (A7)+,A1}
$205F, {MOVEA.L (A7)+,A0}
$7002, {MOVEQ #$02,D0}
$A05C, {_MemoryDispatch}
$3E80; {MOVE.W D0,(A7)}
function UnlockMemory (address: univ Ptr; count: Longint): OSErr;
inline
$225F, {MOVEA.L (A7)+,A1}
$205F, {MOVEA.L (A7)+,A0}
$7003, {MOVEQ #$03,D0}
$A05C, {_MemoryDispatch}
$3E80; {MOVE.W D0,(A7)}
implementation
end.